home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FST30A.ZIP;1 / USEPEOPL.MOD < prev    next >
Encoding:
Text File  |  1992-09-20  |  563 b   |  22 lines
  1. MODULE UsePeople;
  2.   FROM InOut IMPORT
  3.     WriteString, WriteLn;
  4.   FROM People IMPORT
  5.     Person, Programmer;
  6.   FROM Objects IMPORT
  7.     ALLOCATEOBJECT,DEALLOCATEOBJECT,MEMBEROBJECT;
  8.   VAR
  9.     someone         :Person;
  10.     smartProgrammer :Programmer;
  11.   BEGIN
  12.     NEW(smartProgrammer);
  13.     smartProgrammer.favoriteLanguage := "Modula-2";
  14.     someone := smartProgrammer;
  15.     IF MEMBER(someone,Programmer) &
  16.        smartProgrammer.isSmart()
  17.        THEN
  18.         WriteString( "he is a smart programmer!" );
  19.         WriteLn;
  20.     END;
  21. END UsePeople.
  22.